﻿Public Class OpenSavePanel
    Public Event Open_Clicked()
    Public Event Save_Clicked()
    Public Event Exit_Clicked()
    Property Open_Text() As String
        Get
            Return Open_Button.ButtonText
        End Get
        Set(ByVal value As String)
            Open_Button.ButtonText = value
        End Set
    End Property
    Property Save_Text() As String
        Get
            Return Save_Button.ButtonText
        End Get
        Set(ByVal value As String)
            Save_Button.ButtonText = value
        End Set
    End Property
    Property Exit_Text() As String
        Get
            Return Exit_Button.ButtonText
        End Get
        Set(ByVal value As String)
            Exit_Button.ButtonText = value
        End Set
    End Property
    Private Sub Open_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Open_Button.Click
        RaiseEvent Open_Clicked()
    End Sub
    Private Sub Save_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save_Button.Click
        RaiseEvent Save_Clicked()
    End Sub
    Private Sub Exit_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Exit_Button.Click
        RaiseEvent Exit_Clicked()
    End Sub
End Class
